home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.08 Aug 89 / MacApp Intro Source / USample.p < prev   
Encoding:
Text File  |  1989-06-25  |  1.1 KB  |  39 lines  |  [TEXT/MPS ]
  1. UNIT USample;
  2.  
  3. INTERFACE
  4.  
  5. USES
  6.     UMacApp, UPrinting,    UMAUtil,    {MacApp Stuff}
  7.     ToolUtils, Resources, Fonts, Packages, Printing; {toolbox stuff}
  8.     
  9. TYPE
  10.     TSampleApplication = OBJECT(TApplication)
  11.         PROCEDURE TSampleApplication.ISampleApplication;
  12.         FUNCTION  TSampleApplication.DoMakeDocument(
  13.                             itsCmdNumber: CmdNumber):TDocument; OVERRIDE;
  14.         END;
  15.  
  16.     TSampleDocument = OBJECT(TDocument)
  17.         fDeviceCmd:        Integer;
  18.         fSampleView:    TSampleView;
  19.         PROCEDURE TSampleDocument.ISampleDocument;
  20.         PROCEDURE TSampleDocument.DoMakeViews(forPrinting: BOOLEAN); OVERRIDE;
  21.         PROCEDURE TSampleDocument.DoMakeWindows; OVERRIDE;
  22.         PROCEDURE TSampleDocument.DoSetupMenus; OVERRIDE;
  23.         FUNCTION  TSampleDocument.DoMenuCommand(aCmdNumber: CmdNumber):TCommand;OVERRIDE;
  24.         
  25.         PROCEDURE TSampleDocument.SetCmd(CmdID: INTEGER);
  26.         FUNCTION  TSampleDocument.GetCmd: INTEGER;
  27.         END;
  28.         
  29.     TSampleView = OBJECT(TView)
  30.         fSampleDocument: TSampleDocument;
  31.         PROCEDURE TSampleView.ISampleView(itsDocument: TSampleDocument);
  32.         PROCEDURE TSampleView.Draw(area: Rect); OVERRIDE;
  33.         END;        
  34.     
  35. IMPLEMENTATION
  36.     {$I USample.inc1.p}
  37. END.
  38.  
  39.